# this is just a quick look at paired data
source("../gnrnd4.R")
gnrnd4( key1=1434122510, key2=390004700251 )
L1
L2
#  We want to look at  Later (L2) minus Earlier (L1)
L3 <- L2 - L1
L3
#
# to find a 95% confidence interval for the mean
#  of the difference, L2 - L1
source("../ci_unknown.R")
ci_unknown( sd(L3), length(L3), mean(L3), 0.95)
#
# To test the null hypothesis that the mean
#  difference in the paired values is 0 against
#  the alternative hypothesis that the Later
#  values are greater than the Earlier values,
#  that is, that the mean of L3 > 0, at the 
#  0.02 level of significance.
#
source("../hypo_unknown.R")
hypoth_test_unknown( 0, 5, 0.02, length(L3),
                     mean(L3), sd(L3) )